program Project1; // Zadanie 5.7

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  rozmiar = 10;

type
  macierz = array[1..rozmiar,1..rozmiar] of integer;

var
  tablica : macierz;

procedure czytaj_dane(var tablica:macierz;rozmiar:integer);
  var
    i,j:integer;
  begin
    randomize;
    for i := 1 to rozmiar do
      begin
        for j := 1 to rozmiar do
          begin
            if i =j  then
              tablica[i,j] := random(10)
            else
              tablica[i,j] := 0;
          end;
      end;
  end;

procedure przetworz_dane(var tablica:macierz;rozmiar:integer);
  var
    i,suma:integer;
  begin
    suma := 0;
    for i := 1 to rozmiar do
      suma := suma+tablica[i,i];
    writeln;
    writeln('Suma elementow na przekatnej wynosi ', suma,'.');
  end;

procedure wyswietl_wynik(var tablica:macierz;rozmiar:integer);
  var
    i,j:integer;
  begin
    writeln('Wydruk zawartosci tablicy:');
    writeln;
    for i := 1 to rozmiar do
      begin
        for j := 1 to rozmiar do
          write(tablica[i,j],' ');
          writeln;
      end;
  end;

begin
  czytaj_dane(tablica,rozmiar);
  przetworz_dane(tablica,rozmiar);
  wyswietl_wynik(tablica,rozmiar);

  readln; // czeka na nacisniecie klawisza Enter
end.
